perm filename PHONE.PUB[D,LES]3 blob sn#583827 filedate 1981-05-02 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.device xgp
C00004 00003	.tt I skip 200
C00005 00004	.tt R skip 200
C00006 00005	.begin "bod"
C00007 ENDMK
C⊗;
.device xgp
.font 1 "ngr20";
.height←35; width←36;
.page frame height high (width+1) wide;
.area text lines 1 to height chars 1 to (width-1);
.title area martab lines 1 to height char width to (width+1);
.macro tt(arg)	⊂ ttab←"arg"; tline←octal("arg")-63;
.  apart; skip (if lines<10 then 200 else 1);
.  ⊃
.fill; nojust preface 0; crbreak
.indent 0,21;
.at null ⊂ break; apart; skip; group ⊃;
.oddleftborder←evenleftborder←400;
.!xgpcommands←"/TMAR=50/BMAR=50/PMAR=900";
.turn on "%\";
.turn on tab for "\";;
.at "\\" ⊂"\"⊃;
.tabs 22;
.next page;
.tt(A);
.before page ⊂
. place martab; skip to line tline;
. ttab; place text;
.  ⊃
.next page;
.<<
.require "addres[d,les]" source_file;
.>>
.tt I; skip 200;
.begin "imagen"
.next page
.require "imagen.pub[d,les]" source_file;
.end "imagen"
.tt R; skip 200;
.begin "reps"
DISTRICT REPS

.macro a(reg,tit,fir,nam,add,hph,wph) ⊂
tit: nam, fir \hph
add
.if length("wph") then start
(work) \wph
.  end

.  ⊃
.require "boc[c,les]" source_file;
.end "reps"
.begin "bod"
.macro a(reg,tit,fir,nam,add,hph,wph) ⊂
.send bod ⊂ }βnam, fir∞ \hph
.once indent 0,5;
add
.if length("wph") then start
(work) \wph
.  end

.   ⊃
.  ⊃
.require "bod[c,les]" source_file;
.require "staff[c,les]" source_file;
.end "bod"
.portion bod; place text
.tt D;
USCF BOARD OF DIRECTORS & STAFF

.begin "rec"
.at "β" foo "∞" ⊂ "foo" ⊃;
.receive "β∞"
.end "rec"